home *** CD-ROM | disk | FTP | other *** search
/ KimStacks 7 / KimStacks CD-ROM 7 1993.iso / ShareWare / Games / Core! 1.1 / Battle Programs / contest90 / DIVERS.RED < prev    next >
Encoding:
Text File  |  1991-08-12  |  418 b   |  18 lines
  1. ;
  2. ;    Warrior: Divers
  3. ;  File name: divers.red
  4. ; Tournament: ICWST'90
  5. ;   Standard: CWS'88
  6. ;     Author: Matthew Skala
  7. ;
  8. DIVE      MOV   # 13          LOOPCTR
  9. LOOP      ADD   # 16          PTR
  10. ENTER     MOV     PTR       @ PTR
  11.           MOV     TRAP      @ PTR
  12. LOOPCTR   DJN     LOOP      # 1
  13.           SPL   @ PTR
  14.           JMP     DIVE
  15. PTR       DAT               # 1028
  16. TRAP      JMP     0
  17.           END     ENTER
  18.